a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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**F 1LE**1D**FORDATEDS 


{ 
| 
| 
FFFFFFFFFE 000000 RRRRRRRR DDDDDDDD AAAAAA TTTTTTTTTT EEREEEEEEE DDDDDDDD SSSSSSSS 
FFEFFFFFFFF 000000 RRRRRRRR DDDDDDDD AAAAAA TTTTTTTTTT EEEEEEEEEE DDDDDDDD SSSSSSSS | 
FF 00 00 RR RR ODD DD AA AA TT EE DD DD Ss | 
FF 00 00 RR RR DD DD AA AA TT EE DD DD Ss 
FF 00 00 RR RR OD AA AA TT EE DD DD SS 
FF 00 00 RR RR ODD DD AA AA TT EE DD DD Ss 
FFFFFFFF 00 00 RRRRRRRR DD DD AA AA TT EEEEEEEE DD DD SSSSSS 
FFFFFFFF 00 00 RRRRRRRR DD DD AA AA TT EEEEEEEE DD DD SSSSSS 
FF 00 00 RR RR DD DD AAAAAAAAAA IT EE DD DD $$ | 
FF 00 00 RR RR DD DD AAAAAAAAAA TT EE DD DD SS 
FF 00 00 RR RR DD DD AA AA TT EE DD DD SS ees 
FF 00 RR RR DD DD AA AA TT FE DD DD SS iaee 
FF 000000 RR RR DDDDDDDD AA AA TT EEEEEEEEEE DDDDDDDD SSSSSSSS pied 
FF 000000 RR RR DDDDDDDD AA AA TT EEEEEEEEEE DDDDDDDD SSSSSSSS cede | 
| 
LL II1111 SSSSSSSS | 
LL H1111 SSSSSSSS 
LL I! ss | 
LL Il ss 
LL II SS 
LL II ss 
LL II SSSSSS 
LL Il SSSSSS 
LL II $s 
LL II Ss 
LL I] SS 
LL II ss 
LLLLLLLLEL III SSSSSSSS 
LLLLLLLLLL eeeee SSSSSSSS | 
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FORSDAT 
Table o 


“tentents 


HISTO 
DECLA 
FOR 


; return system date to FORTRAN 15-SEP-1984 23:50:21 


iF ; Detailed Current Edit History 
DATE. " DS = return system date to FORTRAN string 


VAX/VMS Macro Vv04-00 


Page 


D 13 
3; return system date to FORTRAN 15=SEP- 138¢ 3:50: ‘31 AX/VMS Macro v04-00 Page 1 
6-SEP=-1984 10:54:55 FORRTL.SRCIJFORDATEDS.MAR; 1 (1) 
000 .TITLE FORSDATE_T_DS ; return system date to FORTRAN | 
4 ; character string 
+84 -IDENT /1-002/ ; File: FORDATEDS.MAR 
009 MARBBAABALALALALALALALALALLALLALCEA SEALE SEA EASES ESE RS EAE E ESSE LEELA EEE ESE aa 
*?® ® 
000 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 * DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 :* ALL RIGHTS RESERVED. * 
we 
8 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND series * 
;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS R * 
0 * COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8 :* TRANSFERRED. * 
® 
0 ;* je INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. « 
*® wt 
:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
re SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
URI I I rn inniinniiiinniniinniniinisninnisnniesnnen: 


; ; FACILITY: FORTRAN SYSTEM ROUTINE - FORTRAN LIBRARY 
; ABSTRACT: 


Return system date in the form DD-MMM-YY to a FORTRAN (fixed-len) 
string. 


; VERSION: 0 
; HISTORY: 


; AUTHOR: 
Jonathan M. Taylor, 23-Aug-77: Version 0 


; MODIFIED BY: 


: 0-1 original JMT 23-Aug-77 
; O-2 squeezed a byte out. JMT 29-Jan-78 


o oooooooco 
be ee ee ee we ew ew we eel elololelelolololololeloleolololololololo) 
nn nnn nn ne ne ee eee ww nw law lala lolol eololalelelelalalelolololalalelololalolalololol oa) 


OOWNA UES WN SO ODNAUES WN SO OONAU EWN CO OONAU SW OOONOUS wr 


DE BB BBE BEB SANNA ANNAN NIIP PONONIPONIPONN PY SS SS SO OS 


Oooooooooooooooooooooooooooo°o°oo 
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So 
So 


ee tt TO LO LL a 


FORSDATE_T_DS ; ceturn system date to FORTRAN 1 4 23:50: AX/VMS Macro V04-00 Page 
foR38 og se ArSfory. j seen fag Current Edit coca 3: SEP =| 38% 18:89:34 FORRTL»SRCIFORDATEDS.MAR; 1 ° by 

3 5 -SBTTL HISTORY ; Detailed Current Edit History 

4 

09 ‘ ; Edit History for Version 0 of FORSDATE_T_D5S 

000 ’ 

000 8 ; 0-3 = Remove FORSFLAG_JACKET. TNH 11-July-78 

0000 59 ; 1-001 - yogene version number and copyright notice. JBS 16-NOV-78 

0000 60 ; 1-002 - Add ‘|’ to the PSECT directive. JBS 22-DEC-78 


F 13 
pygten date to ronraay "T° 15-SEP-13 23:80:81 YARAUME NaecPeARtG OR, aunss POO gH 


~SBTTL DECLARATIONS 


- 


jogggnet-08 ict 


INCLUDE FILES: 
oerr.mar 


EXTERNAL SYMBOLS: 
none 


; MACROS: 
none 
; PSECT DECLARATIONS: 
0000 «-PSECT _FORSCODE LONG, EXE, NOWRT, PIC, SHR 


; EQUATED SYMBOLS: 
none 


; OWN STORAGE: 
; none 


SSSSSSSSSSSses ze 
SOOQCQooooooooooooooooooooooo F4 


SOOOCOCCOCOOCOOOOCOCOOCOOOOCOOOOoOoOO “5 
COCO COCCOCCOCOCOOCCOOCOOOCOOCoOOoOO = 
090909 09 09 09 09 09 NI NIN NINN NNN NP PA AAO 
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FORSDATE.1_DS ; re em date to FORTRAN 15-SEP-1984 t 3: 750: ‘@] AX/VMS Macro V04-00 Page 


return system date to FO 6-SEP-1984 10:54: FORRTL.SRCJFORDATEDS .MAR; 1 
-SBTTL FORSDATE_T_DS = return system date to FORTRAN string 
3 ++ 
; FUNCTIONAL DESCRIPTION: 
Use + tt: service at Ta to move system date to a local (stack) 
bulter, =p 48 she last gits of date on top of Ist 2 - 
M977 7 Return : Ris date to user string. 
CALLING Caen 
CAL FORSDATE_ T_DS (date_string.wt.ds) 
INPUT PARAMETERS: 
date_string is the address of a fixed-len string. 


IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


FP PUNYS OL VND DUPVOOOCOCCCCOCOCCOC COCO OCOCOCCOCCOOCOOO OOOO OOoOOO 
WWIAIWIWIWIAIWNININIPINININININNIDN 2 2 2 OO PM POOOOOOOOCOOOOOOOOOOOOR 


NOUS WN OS OOO NAW EWN OOD NAUES WN (CO OONAUE WN O OONOUS wr 0ON0 


ee ee ee a ed ed = = = = — 3 = 2 8 8 = = = = Ss = 


003C ENTRY FORSDATE_T_DS, “M<R2, R3,R4,R5> 
5E Oc C2 000 SUBL Wiz, SP ; make room for date string 
52 SE 00 000 MOVL . : R2 => room 
7E 52 00 000 MOVL R2, -(SP) ; build a string descriptor for room 
7E 010€000B 8F D0 000 MOVL nde ~ easy -(SP) ; len = 11 
50 5E 00 001 MOVL : RO -> src descriptor 
01 SASCTIM 3 ._ (RO) : R2 => ee oatrine 
07 A2 09 A2 BO 002 MOVW “9(R2), 7(R2) F aung up 
50 04B8C 7D 002 MOVa a4(APS, RO  RO/R1 = Ztring descriptor 
61 50 20 62 O09 2 0¢ mMOVCS #9, atte was /, RO, (RID 
0 ; move into dest buffer 
04 03 RET 
03 
03 
03 . END 


FORSDATE_T_DS ; return system date to FORTRAN 


Symbol table 


FORSDATE_T_DS 00000000 RG 8 
SYSSASCTIM™ eeteeeee G 


—>— 


poeawonecesaaceanaa + 


! i Psect synopsis : 
+ 


PSECT name Allocation PSECT No. Attributes 


.. mS. 00000 
“FORSCODE $0008 


Phase Page faults 
Initialization 31 
—e iy processing 117 
Pas 102 
Symbol table sort 0 
Pass 2 38 
Symbol table output 2 
Psect synopsis output 2 


Cross-reference output 
Assembler run totals 294 


The working set Limit was 1050 pages. 

1807 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 
producing 11 object records in Pass 2 


137 source Lines were read in Pass 1, 


(583) 


wees er eee me ae ee ece en awe ame + 


H ; Performance indicators ! 
+ 


NOPIC USR 
PIC USR 


CPU Time Elapsed Time 
90:00: 00.08 00:00:01.07 
00:00:00.5 00:00:03.66 
$0:00:00:00  90:00:00:60 
09:00:00.3 00:06:01.46 
00:00:00.0 00:00:00.11 
00:00:00.02 00:00:00.12 
00:00:00.00 00:00:00.00 
00:00:01.56 00:00:09.69 


2 pages of virtual memory were used to define 2 macros. 


Macro Library name 


~$255$DUA28: CSYSLIBISTARLET.MLB;2 


15 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORDATEDS/OBJ=OBJ$:FORDATEDS MSRC$:FORDATEDS/UPDATE=(ENHS: FORDATEDS) 


0 V04-00 
FORDATEDS. MAR; 1 


on + NOEXE NORD NOWRT NOVEC BYTE 
SHR E RD NOWRT NOVEC LONG 


2 non-local and 0 Local symbols. 


ou 


-— wm 


PMENT CORPORATION 


AH-BT13A-SE 
ND PROPRIETARY 
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